Amiga Plus 1999 #1/Amiga Plus 1999 #1.iso/System-Boost/Sound/AmTagEd/Install_AmTagEd

Text File | 1998-08-10 | 4.3 KB | 257 lines

; Install script for AmTagEd
;
; Copyright © 1998 Kimmo Palosaari
;
; $VER: Install-AmTagEd 1.5 (17.7.98)
;

(set @default-dest "SYS:Tools")

(procedure CopyLibs #srcdir #srcname #dstdir

    (copylib
        (prompt "Copying " #srcname "...")
        (help @copylib-help)
        (source (tackon #srcdir #srcname))
        (dest #dstdir)
        (optional "force" "askuser")
        (confirm "expert")
    )
)

(complete 0)

(message
    "\nAmTagEd 1.5\n\n"
    "Copyright © 1998 Kimmo Palosaari\n\n\n"
    "This script will install AmTagEd\n"
    "and required libraries."
)

(set @default-dest
    (askdir
        (prompt "Select the destination directory for AmTagEd.\nA drawer will NOT be created.")
        (help askdir-help)
        (default @default-dest)
    )
)

(complete 10)

(set @copydoc
    (askbool
        (prompt "\nDo you want to copy the documentation file?")
        (help askbool-help)
        (default 1)
    )
)

(complete 20)

(if (= @copydoc 1)
    (set @doc-dir
        (askdir
            (prompt "Select the destination directory for the documentation file.")
            (help askdir-help)
            (default @default-dest)
        )
    )
)

(complete 30)

(set @icontype
    (askchoice
        (prompt "\nSelect what kind of icon you want to install")
        (help askchoice-help)
        (choices "No icon" "MagicWB" "NewIcon")
        (default 1)
    )
)

(complete 40)

(if (or (= @icontype 1) (= @icontype 2))
(
    (run "Run >NIL: <NIL: SYS:Utilities/MultiView Icons/Icons.iff PORTNAME=AMTAGEDMULTIVIEW")

    (set @imagetype
        (askchoice
            (prompt "\nSelect which image you want for icon")
            (help askchoice-help)
            (choices "1" "2" "3")
            (default 0)
        )
    )

    (rexx "quitmultiview.rexx")
)
)

(complete 50)

(set @languages
    (askoptions
        (prompt "\nSelect which languages should be installed.")
        (help askoptions-help)
        (choices
            "English"
            "Suomi"
        )
        (default 1)
    )
)

(copyfiles
    (source "AmTagEd")
    (help copyfiles-help)
    (dest @default-dest)
)

(if (= @copydoc 1)
(
    (copyfiles
        (source "AmTagEd.guide")
        (help copyfiles-help)
        (dest @doc-dir)
    )

    (if (= @icontype 1)
        (copyfiles
            (source "Icons/AmTagEd.guide.icon.info")
            (help copyfiles-help)
            (dest @doc-dir)
            (newname "AmTagEd.guide.info")
        )
        (if (= @icontype 2)
            (copyfiles
                (source "Icons/AmTagEd.guide.newicon.info")
                (help copyfiles-help)
                (dest @doc-dir)
                (newname "AmTagEd.guide.info")
            )
        )
    )
)
)

(if (= @icontype 1)
    (if (= @imagetype 0)
        (copyfiles
            (source "Icons/AmTagEd.icon1.info")
            (help copyfiles-help)
            (dest @default-dest)
            (newname "AmTagEd.info")
        )
        (if (= @imagetype 1)
            (copyfiles
                (source "Icons/AmTagEd.icon2.info")
                (help copyfiles-help)
                (dest @default-dest)
                (newname "AmTagEd.info")
            )
            (if (= @imagetype 2)
                (copyfiles
                    (source "Icons/AmTagEd.icon3.info")
                    (help copyfiles-help)
                    (dest @default-dest)
                    (newname "AmTagEd.info")
                )
            )
        )
    )
)

(if (= @icontype 2)
    (if (= @imagetype 0)
        (copyfiles
            (source "Icons/AmTagEd.newicon1.info")
            (help copyfiles-help)
            (dest @default-dest)
            (newname "AmTagEd.info")
        )
        (if (= @imagetype 1)
            (copyfiles
                (source "Icons/AmTagEd.newicon2.info")
                (help copyfiles-help)
                (dest @default-dest)
                (newname "AmTagEd.info")
            )
            (if (= @imagetype 2)
                (copyfiles
                    (source "Icons/AmTagEd.newicon3.info")
                    (help copyfiles-help)
                    (dest @default-dest)
                    (newname "AmTagEd.info")
                )
            )
        )
    )
)

(
    (set n 0)
    (while
        (set language
            (select n
                "English"
                "suomi"
                ""
            )
        )
        (
            (if (IN @languages n)
                (if (<> 0 n)
                (
                    (set catalogs (tackon "Locale/Catalogs" language))
                    (set destination (tackon "Locale:Catalogs" language))
                    (makedir destination)
                    (if (exists (tackon catalogs "AmTagEd.catalog"))
                        (copylib
                            (prompt "Copying catalog...")
                            (source (tackon catalogs "AmTagEd.catalog"))
                            (dest destination)
                        )
                    )
                )
                )
            )
            (set n (+ n 1))
        )
    )
)

(CopyLibs "Libs/MUI" "NList.mcc" "MUI:Libs/MUI")

(complete 60)

(CopyLibs "Libs/MUI" "NListview.mcc" "MUI:Libs/MUI")

(complete 65)

(CopyLibs "Libs/MUI" "NListviews.mcp" "MUI:Libs/MUI")

(complete 70)

(CopyLibs "Libs/MUI" "BetterString.mcc" "MUI:Libs/MUI")

(complete 75)

(CopyLibs "Libs/MUI" "BetterString.mcp" "MUI:Libs/MUI")

(complete 80)

(CopyLibs "Libs/MUI" "TextEditor.mcc" "MUI:Libs/MUI")

(complete 85)

(CopyLibs "Libs/MUI" "TextEditor.mcp" "MUI:Libs/MUI")

(complete 90)

(CopyLibs "Libs" "popupmenu.library" "LIBS:")

(complete 100)

(exit)